﻿Public Class DMIcd
    Public Sub New()
        InitializeComponent()
        Me.setObj(Me.PCV_CLINICDataSet_Don, Me.PCV_CLINICDataSet_Don.DMIcd, Me.DMIcdBindingSource, Me.TableAdapterManager, DMIcdTableAdapter, MaITextEdit)
    End Sub

    Private Sub DMIcd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.DMIcdTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMIcd)
    End Sub

    Private Sub BarButtonItemBaoCao_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBaoCao.ItemClick
        Dim report As Rp_DMICD = New Rp_DMICD
        report.ShowRibbonPreview()
    End Sub
End Class
